
**APPENDIX TABLE 7: Individual Outcome-Self Employment**

use "$data/merge_bl_fu", clear

gen A_EDT_elig=(A_EDT==1 & d_lleligible==1)
gen A_EDT_no_elig=(A_EDT==1 & d_lleligible==0)
gen nobt_ne_nolw = EDT_treat==0 & d_lleligible==0 & L_ttreat==0

gen A_self4 = A_EDT*self_income4
gen A_self4_elig = A_EDT_elig*self_income4
gen A_self4_no_elig = A_EDT_no_elig*self_income4
gen A_self4_nobt_ne_nolw=nobt_ne_nolw*self_income4

gen B_self4 = B_LL* self_income4
gen C_self4 = C_EDT_LL*self_income4
gen EDT_self4=EDT_treat* self_income4

*INDIVIDUAL AGGREATES 1**
*diff in diff*

local xvars "self_income4 EDT_treat EDT_self4 female bl_bus_owner d_lleligible fu_dummy*"
local yvars "inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate "
est clear
local j =1
foreach y in `yvars' {
	reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 ), cl(co_code1)
	estimates store `y'_fu
	test EDT_treat + EDT_self4=0
	estadd scalar p_diff1 = r(p)	
	sum `y'_bl if (fu_dummy7==0  & post==0 & EDT_treat==0)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
estout * using "$out/OA-TableA7-PanelA-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1 , fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1")) replace
estimates clear

local xvars "self_income4 A_EDT_elig A_self4_elig A_EDT_no_elig A_self4_no_elig B_LL B_self4 C_EDT_LL C_self4 nobt_ne_nolw A_self4_nobt_ne_nolw female bl_bus_owner fu_dummy*"
local yvars "inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate "
local j =1
foreach y in `yvars' {
	reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 ), cl(co_code1)
	estimates store `y'_fu
	test A_EDT_elig =B_LL
	estadd scalar p_diff1 = r(p)
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	test C_EDT_LL =B_LL
	estadd scalar p_diff3 = r(p)
	test A_EDT_no_elig =nobt_ne_nolw
	estadd scalar p_diff4 = r(p)
	test A_EDT_elig + A_self4_elig=0
	estadd scalar p_diff5 = r(p)
	test A_EDT_no_elig + A_self4_no_elig=0
	estadd scalar p_diff6 = r(p)
	test B_LL +B_self4 =0
	estadd scalar p_diff7 = r(p)
	test C_EDT_LL +C_self4 =0
	estadd scalar p_diff8 = r(p)
	test nobt_ne_nolw + A_self4_nobt_ne_nolw=0
	estadd scalar p_diff9= r(p)
	sum `y'_bl if (fu_dummy7==0  & post==0 & EDT_treat==0 & L_ttreat ==0 & d_lleligible==1)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
estout * using "$out/OA-TableA7-PanelB-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	keep(A_EDT_elig A_EDT_no_elig nobt_ne_nolw A_self4_elig A_self4_no_elig A_self4_nobt_ne_nolw B_LL B_self4 C_EDT_LL C_self4 self_income4 ) ///
	starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4 p_diff5 p_diff6 p_diff7 p_diff8 p_diff9, fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" "p5" "p6" "p7" "p8" "p9")) replace
estimates clear

**INDIVIDUAL AGGREGATES 2**
local xvars "self_income4 EDT_treat EDT_self4 female bl_bus_owner d_lleligible fu_dummy*"
local yvars "bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 
est clear
local j =1
foreach y in `yvars' {
	reg `y' `xvars' if ( fu_dummy7==0 ), cl(co_code1)
	estimates store `y'
	test EDT_treat + EDT_self4=0
	estadd scalar p_diff1 = r(p)
	sum `y' if (fu_dummy7==0  & post==0 & EDT_treat==0)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
estout * using "$out/OA-TableA7-PanelA-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1 , fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1")) replace

local xvars "self_income4 A_EDT_elig A_self4_elig A_EDT_no_elig A_self4_no_elig B_LL B_self4 C_EDT_LL C_self4 nobt_ne_nolw A_self4_nobt_ne_nolw female bl_bus_owner fu_dummy*"
local yvars " bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 
est clear
local j =1
foreach y in `yvars' {
	reg `y' `xvars' if ( fu_dummy7==0 ), cl(co_code1)
	estimates store `y'
	test A_EDT_elig =B_LL
	estadd scalar p_diff1 = r(p)
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	test C_EDT_LL =B_LL
	estadd scalar p_diff3 = r(p)
	test A_EDT_no_elig =nobt_ne_nolw
	estadd scalar p_diff4 = r(p)
	test A_EDT_elig + A_self4_elig=0
	estadd scalar p_diff5 = r(p)
	test A_EDT_no_elig + A_self4_no_elig=0
	estadd scalar p_diff6 = r(p)
	test B_LL +B_self4 =0
	estadd scalar p_diff7 = r(p)
	test C_EDT_LL +C_self4 =0
	estadd scalar p_diff8 = r(p)
	test nobt_ne_nolw + A_self4_nobt_ne_nolw=0
	estadd scalar p_diff9= r(p)
	sum `y' if (fu_dummy7==0 & EDT_treat==0 & L_ttreat ==0 & d_lleligible==1)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}

estout * using "$out/OA-TableA7-PanelB-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) ///
	keep(A_EDT_elig A_EDT_no_elig nobt_ne_nolw A_self4_elig A_self4_no_elig A_self4_nobt_ne_nolw B_LL B_self4 C_EDT_LL C_self4 self_income4 ) ///
	starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4 p_diff5 p_diff6 p_diff7 p_diff8 p_diff9, fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" "p5" "p6" "p7" "p8" "p9")) replace
estimates clear
